﻿Public Class NhanVienDT
    Private _maNV As String
    Public Property MaNV
        Get
            Return _maNV
        End Get
        Set(ByVal value)
            _maNV = value
        End Set
    End Property

    Private _ten As String
    Public Property TenNV
        Get
            Return _ten
        End Get
        Set(ByVal value)
            _ten = value
        End Set
    End Property

    Private _dienthoai As String
    Public Property DienThoai
        Get
            Return _dienthoai
        End Get
        Set(ByVal value)
            _dienthoai = value
        End Set
    End Property

    Private _diachi As String
    Public Property DiaChi
        Get
            Return _diachi
        End Get
        Set(ByVal value)
            _diachi = value
        End Set
    End Property

    Private _email As String
    Public Property Email
        Get
            Return _email
        End Get
        Set(ByVal value)
            _email = value
        End Set
    End Property

    Private _id As Integer
    Public Property ID
        Get
            Return _id
        End Get
        Set(ByVal value)
            _id = value
        End Set
    End Property

    Private _gioitinh As String
    Public Property GioiTinh
        Get
            Return _gioitinh
        End Get
        Set(ByVal value)
            _gioitinh = value
        End Set
    End Property

    Private _ngaysinh As Date
    Public Property NgaySinh
        Get
            Return _ngaysinh
        End Get
        Set(ByVal value)
            _ngaysinh = value
        End Set
    End Property

    Private _hesoluong As Integer
    Public Property HeSoLuong
        Get
            Return _hesoluong
        End Get
        Set(ByVal value)
            _hesoluong = value
        End Set
    End Property

    Private _trinhdo As Integer
    Public Property TrinhDo
        Get
            Return _trinhdo
        End Get
        Set(ByVal value)
            _trinhdo = value
        End Set
    End Property

    Private _matkhau As String
    Public Property MatKhau
        Get
            Return _matkhau
        End Get
        Set(ByVal value)
            _matkhau = value
        End Set
    End Property

    Private _taikhoan As String
    Public Property TaiKhoan
        Get
            Return _taikhoan
        End Get
        Set(ByVal value)
            _taikhoan = value
        End Set
    End Property

    'Khoi tao
    Public Sub New(ByVal manv As String, ByVal ten As String, ByVal dienthoai As String, ByVal diachi As String, ByVal email As String, ByVal gioitinh As String, ByVal ngaysinh As Date, ByVal hsl As Integer, ByVal td As Integer, ByVal tk As String, ByVal mk As String)
        Me._maNV = manv
        Me._ten = ten
        Me._dienthoai = dienthoai
        Me._diachi = diachi
        Me._email = email
        Me._gioitinh = gioitinh
        Me._ngaysinh = ngaysinh
        Me._hesoluong = hsl
        Me._trinhdo = td
        Me._taikhoan = tk
        Me._matkhau = mk
    End Sub
    '-- Show
    Public Sub New(ByVal manv As String, ByVal ten As String, ByVal dienthoai As String, ByVal diachi As String, ByVal email As String, ByVal gioitinh As String, ByVal ngaysinh As Date, ByVal hsl As Integer, ByVal td As Integer, ByVal id As Integer)
        Me._maNV = manv
        Me._ten = ten
        Me._dienthoai = dienthoai
        Me._diachi = diachi
        Me._email = email
        Me._gioitinh = gioitinh
        Me._ngaysinh = ngaysinh
        Me._hesoluong = hsl
        Me._trinhdo = td
        Me._id = id
    End Sub
    '--Update
    Public Sub New(ByVal id As Integer, ByVal ten As String, ByVal dienthoai As String, ByVal diachi As String, ByVal email As String, ByVal gioitinh As String, ByVal ngaysinh As Date, ByVal hsl As Integer, ByVal td As Integer)
        Me._id = id
        Me._ten = ten
        Me._dienthoai = dienthoai
        Me._diachi = diachi
        Me._email = email
        Me._gioitinh = gioitinh
        Me._ngaysinh = ngaysinh
        Me._hesoluong = hsl
        Me._trinhdo = td
    End Sub
    Public Sub New(ByVal id As Integer)
        Me._id = id
    End Sub
End Class
